﻿Public Class Frm_Main

    Private Sub Frm_Main_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
        End
    End Sub

    Private Sub Frm_Main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        sts_usertipe.Text = "Login Sebagai " & Auth.TipeDeskripsi
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Try
            sts_tanggal.Text = Now.ToString("dd MMMM yyyy")
            sts_jam.Text = FormatDateTime(Now, DateFormat.LongTime)
        Catch ex As Exception

        End Try
    End Sub


    Private Sub ManagementUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ManagementUserToolStripMenuItem.Click
        Dim ManagementUser As frm_user_list = New frm_user_list
        ManagementUser.MdiParent = Me
        ManagementUser.Show()
    End Sub

    Private Sub LogOutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LogOutToolStripMenuItem.Click
        Frm_Login.Show()
        Me.Hide()
    End Sub

    Private Sub ReportToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportToolStripMenuItem1.Click
        Dim LaporanAnggota As Frm_View_Anggota = New Frm_View_Anggota
        LaporanAnggota.MdiParent = Me
        LaporanAnggota.Show()
    End Sub

    Private Sub ReportDataUserToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ReportDataUserToolStripMenuItem.Click
        Dim LaporanUser As Frm_View_User = Frm_View_User
        LaporanUser.MdiParent = Me
        LaporanUser.Show()
    End Sub

    Private Sub InputDataToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles InputDataToolStripMenuItem.Click
        Dim Input_Data As Frm_Manajemen_Anggota_view = New Frm_Manajemen_Anggota_view
        Input_Data.MdiParent = Me
        Input_Data.Show()
    End Sub
End Class